IFC TENEX THENC
EXTERNAL BOOLEAN SIMPLE PROCEDURE XLOOKUP(INTEGER CHAN; STRING
	NAME,EXT; INTEGER JUNK; STRING PPN);
ELSEC
EXTERNAL BOOLEAN SIMPLE PROCEDURE XLOOKUP(INTEGER CHAN,NAME,EXT,JUNK,PPN);
ENDC

EXTERNAL STRING SIMPLE PROCEDURE SPS(INTEGER N) ;

EXTERNAL INTEGER SIMPLE PROCEDURE WHATIS(INTEGER ARRAY A) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SWHATIS(STRING ARRAY A) ;

EXTERNAL SIMPLE PROCEDURE GOAWAY(INTEGER I) ;

EXTERNAL INTEGER SIMPLE PROCEDURE BIGGER(INTEGER PTR, HM) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SBIGGER(INTEGER PTR, HM) ;

EXTERNAL INTEGER SIMPLE PROCEDURE CREATE2(INTEGER LB1, UB1, LB2, UB2) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SCREATE(INTEGER LB1, UB1) ;